Swiss Map

swiss

library(ggmap)

## Loading required package: ggplot2

library(mapproj)

## Loading required package: maps

map_1 <- get_map(location = 'Swiss', zoom = 7, language = "zh-TW")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=Swiss&zoom=7&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false

## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Swiss&sensor=false

ggmap(map_1)

swiss map

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 10, language = "zh-TW")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=10&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false

ggmap(map)

swiss road map

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 10, language = "zh-TW", maptype = "roadmap")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=10&size=640x640&scale=2&maptype=roadmap&language=zh-TW&sensor=false

ggmap(map)

swiss road map

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 15, language = "zh-TW", maptype = "roadmap")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=roadmap&language=zh-TW&sensor=false

ggmap(map)

swiss satellite

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 15, language = "zh-TW", maptype = "satellite")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=satellite&language=zh-TW&sensor=false

ggmap(map)

swiss hybrid

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 15, language = "zh-TW", maptype = "hybrid")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=hybrid&language=zh-TW&sensor=false

ggmap(map)

bern

library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 15, language = "zh-TW", maptype = "toner-lite")

## maptype = "toner-lite" is only available with source = "stamen".

## resetting to source = "stamen"...

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=terrain&sensor=false

## Map from URL : http://tile.stamen.com/toner-lite/15/17060/11531.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17061/11531.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17062/11531.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17063/11531.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17060/11532.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17061/11532.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17062/11532.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17063/11532.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17060/11533.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17061/11533.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17062/11533.png

## Map from URL : http://tile.stamen.com/toner-lite/15/17063/11533.png

ggmap(map)

lighten

map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 20, language = "zh-TW")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=20&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false

ggmap(map, darken = c(0.5, "white"))

darken

map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
  zoom = 10, language = "zh-TW")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=10&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false

ggmap(map, darken = 0.5)

---